home *** CD-ROM | disk | FTP | other *** search
/ Commodore 64 Scene Diskmags Assortment / Gurla_1_19xx_-.d64 / dir kasittely (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  8KB  |  242 lines
  1. 0 rem" dir kasittely :*: tehnyt marko jerrman[160][160]
  2. 5 a[178]a[170]1:[139]a[178]1[167][147]"828",8,8
  3. 10 [134]d$(10,8),t$(68),d1$(80),d2$(80),d(80):[159]15,8,15
  4. 15 [129]i[178]0[164]8:[135]t$(i):[130]:[129]i[178]64[164]68:[135]t$(i):[130]
  5. 16 oe$[178]"on/eiwait":[129]i[178]0[164]9:al$[178]al$[170]"":[130]:[129]i[178]1[164]39:tt$[178]tt$[170]" ":[130]
  6. 17 [129]i[178]1[164]10:[135]s(i):[130]
  7. 30 [137]1000
  8. 31 [131] del,seq,prg,usr,rel,*seq,*prg,*usr,*rel
  9. 33 [131] del<,seq<,prg<,usr<,rel<
  10. 35 [131]1,4,7,10,13,16,2,5,8,11
  11. 40 [159]5,8,5,"#":s[178]1:z[178]1
  12. 50 [152]15,"u1:"5;0;18;s:[152]15,"b-p:"5;0
  13. 60 [129]j[178]1[164]8:d$(z,j)[178]"":[129]i[178]0[164]31:[161]#5,a$:[139]a$[178]""[167]a$[178][199](0)
  14. 65 [139]st[179][177]64[175]st[179][177]0[167]90
  15. 70 d$(z,j)[178]d$(z,j)[170]a$:[130]:[139][202](d$(z,j),6,1)[178][199](0)[167]90
  16. 72 [141]500
  17. 75 [130]:s[178][198]([202](d$(z,1),2,1)):z[178]z[170]1
  18. 80 [139]s[179]21[167]50
  19. 90 [160]5:[142]
  20. 100 [159]5,8,5,"#":[152]15,"u1:"5;0;18;0:[152]15,"b-p:"5;144:d$(0,0)[178]""
  21. 110 [129]i[178]1[164]24:[161]#5,a$:[139]a$[178]""[167]a$[178][199](0)
  22. 115 d$(0,0)[178]d$(0,0)[170]a$:[130]:[153]""d$(0,0):[160]5:[142]
  23. 500 [153][202](d$(z,j),6,16)"  ";:[139][198]([202](d$(z,j),3,1))[178]0[167][153]t$(0)" ";:[137]505
  24. 501 [139][198]([202](d$(z,j),3,1))[179]128[167][153]t$([198]([202](d$(z,j),3,1))[170]4)" ";:[137]505
  25. 502 [153]t$([198]([202](d$(z,j),3,1))[171]128)" ";
  26. 505 p[178][198]([202](d$(z,j),31,1))[170][198]([201](d$(z,j),1))[172]256:[153]p"blokkia ":p[178]1
  27. 509 [142]
  28. 1000 [153]"loadreturn * * * * * dirikan  kasittely * * * * *":[161]a$,a$
  29. 1010 [153]" muistissa "oe$" dirikka"
  30. 1020 [153]"  1 wait lataa dirikka"
  31. 1030 [153]"  2 wait tallenna dirikka"
  32. 1040 [153]"  3 wait kasittele otsikkoa"
  33. 1050 [153]"  4 wait palauta/sulje jutut"
  34. 1060 [153]"  5 wait jarjesta dirikka"
  35. 1070 [153]"  6 wait viivoja dirikkaan"
  36. 1080 [153]"  7 wait levykasky"
  37. 1090 [153]"  8 wait dirikka pois muistista":a[178]0:p[178]0:i[178]0:j[178]0:z[178]0
  38. 1095 [153]"  9 wait dirikka nakyviin"
  39. 1100 [153]"  0 wait levyn dirikka":[129]i[178]1[164]80:d1$(i)[178]"":d2$(i)[178]"":d(i)[178]0:[130]
  40. 1110 [161]a$:[139]a$[179]"0"[176]a$[177]"9"[167]1110
  41. 1120 a[178][197](a$):[145]a[137]1200,1800,1300,1270,1400,1650,1220,1210,1900
  42. 1125 [153]"load":[158]828
  43. 1126 [161]a$:[139]a$[178]""[167]1126
  44. 1128 [137]1000
  45. 1200 [153]"loadlataan":[141]100:[141]40:oe$[178]"onwait/ei":d$(0,1)[178][196](z)
  46. 1205 d$(0,2)[178][196](j[171]1):[139]j[171]1[178]0[176]j[171]1[178]8[167]d$(0,1)[178][196](z[171]1):d$(0,2)[178]"8"
  47. 1206 [137]1000
  48. 1210 [153]"loadoletko varma (k/e)?"
  49. 1215 [161]a$:[139]a$[179][177]"e"[175]a$[179][177]"k"[167]1215
  50. 1217 [139]a$[178]"e"[167]1000
  51. 1218 [138]10
  52. 1220 [153]"loadlevykasky":[153]"mika on kaskysi (*=levyn tila)?":b$[178]"":[153]"_cmd";
  53. 1225 [161]a$:[139]a$[178]""[176](a$[177][199](127)[175]a$[179][199](160))[167]1225
  54. 1230 [139]a$[178]""[175][195](b$)[177]0[167][153]"cmd_ cmdcmd";:b$[178][200](b$,[195](b$)[171]1):[137]1225
  55. 1231 [139]a$[179][199](32)[175]a$[179][177][199](13)[167]1225
  56. 1233 [139]a$[178][199](34)[167]1220
  57. 1234 [139]a$[178][199](13)[167][153]" ":[137]1240
  58. 1235 b$[178]b$[170]a$:[153]a$"_cmd";:[137]1225
  59. 1240 [139]b$[178]"*"[167]1250
  60. 1243 [139][200](b$,1)[178]"n"[167][153]"oletko varma (k/e)?":[137]1260
  61. 1245 [152]15,b$:[137]1250
  62. 1250 [161]#15,a$:[153]""a$;:[139]a$[179][177][199](13)[167]1250
  63. 1254 [161]a$:[139]a$[178]""[167]1254
  64. 1255 [137]1000
  65. 1260 [161]a$:[139]a$[179][177]"k"[175]a$[179][177]"e"[167]1260
  66. 1263 [139]a$[178]"e"[167]1220
  67. 1265 [137]1245
  68. 1270 [153]"loadpalautan":p[178]0:d[178][197](d$(0,1)):[139][197](d$(0,1))[178]0[167]1000
  69. 1272 [139]d[178]1[167]z[178]1:[137]1276
  70. 1273 [129]z[178]1[164]d[171]1:[129]j[178]1[164]8:[139][198]([202](d$(z,j),3,1))[178]0[167][141]1280
  71. 1274 [139][198]([202](d$(z,j),3,1))[177]0[175][198]([202](d$(z,j),3,1))[179]9[167][141]1296
  72. 1275 [130]:[130]
  73. 1276 [129]j[178]1[164][197](d$(0,2)):[139][198]([202](d$(z,j),3,1))[178]0[167][141]1280
  74. 1277 [139][198]([202](d$(z,j),3,1))[177]0[175][198]([202](d$(z,j),3,1))[179]9[167][141]1296
  75. 1278 [130]:[139]p[178]0[167][153]"ei poistettuja tai avonaisia tiedostoja":[137]1254
  76. 1279 [137]1000
  77. 1280 [141]500:[153]"palautetaanko (k/e)?":b$[178]""
  78. 1282 [161]a$:[139]a$[179][177]"e"[175]a$[179][177]"k"[167]1282
  79. 1283 [139]a$[178]"e"[167][142]
  80. 1284 [139]b$[178]"s"[167]1297
  81. 1285 [153]"ononko kyseessa pwaitrg, swaiteq, uwaitsr vai rwaitel?"
  82. 1287 [161]a$:[139]a$[178]""[167]1287
  83. 1290 [139]a$[178]"p"[167]a[178]2:[137]1295
  84. 1291 [139]a$[178]"s"[167]a[178]1:[137]1295
  85. 1292 [139]a$[178]"u"[167]a[178]3:[137]1295
  86. 1293 [139]a$[178]"r"[167]a[178]4:[137]1295
  87. 1294 [137]1287
  88. 1295 d$(z,j)[178][200](d$(z,j),2)[170][199](128[170]a)[170][201](d$(z,j),29):[142]
  89. 1296 [141]500:[153]"suljetaanko (k/e)":b$[178]"s":[137]1282
  90. 1297 a[178][198]([202](d$(z,j),3,1)):[137]1295
  91. 1300 [153]"loadkasitellaan otsikkoa":[139]d$(0,0)[178]""[167]1000
  92. 1305 [153]"id:lla @ dirikasta tulee nakymaton"
  93. 1310 [153]"vanha otsikko=";[200](d$(0,0),16):[153]"vanha id="[201](d$(0,0),6)
  94. 1320 [153]"uusi otsikko=                :cmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmd_cmd";:b$[178]""
  95. 1325 [161]a$:[139]a$[178]""[176](a$[177][199](127)[175]a$[179][199](160))[167]1325
  96. 1326 [139]a$[178]""[175][195](b$)[177]0[167][153]"cmd_ cmdcmd";:b$[178][200](b$,[195](b$)[171]1)
  97. 1327 [139]a$[179][199](32)[175]a$[179][177][199](13)[167]1325
  98. 1328 [139]a$[178][199](34)[167][153][199](34)[199](20);
  99. 1330 [139]a$[178][199](13)[167][153]" ":b$[178][200](b$[170]"               close",16):[137]1335
  100. 1332 [153]a$"_cmd";:b$[178]b$[170]a$:[139][195](b$)[177]16[167][153]"cmd: cmdcmd";:b$[178][200](b$,16)
  101. 1334 [137]1325
  102. 1335 [153]"uusi id=     :cmdcmdcmdcmdcmdcmd_cmd";:c$[178]""
  103. 1340 [161]a$:[139]a$[178]""[176](a$[177][199](127)[175]a$[179][199](160))[167]1340
  104. 1341 [139]a$[178]""[175][195](c$)[177]0[167][153]"cmd_ cmdcmd";:c$[178][200](c$,[195](c$)[171]1)
  105. 1342 [139]a$[179][199](32)[175]a$[179][177][199](13)[167]1340
  106. 1343 [139]a$[178][199](34)[167][153][199](34)[199](20);
  107. 1345 [139]a$[178][199](13)[167][153]" ":c$[178][200](c$[170]"    close",5):[137]1350
  108. 1346 [153]a$"_cmd";:c$[178]c$[170]a$:[139][195](c$)[177]5[167][153]"cmd: cmdcmd";:c$[178][200](c$,5)
  109. 1347 [137]1340
  110. 1350 [139][200](c$,1)[178]"@"[167]c$[178]"":[129]i[178]1[164]5:c$[178]c$[170][199](0):[130]
  111. 1360 d$(0,0)[178]b$[170]"closeclose"[170]c$[170]" ":[137]1000
  112. 1400 [153]"load<ret>=valinta  m=muunto":a[178]1:d[178][197](d$(0,1)):[139]d[178]0[167]1000
  113. 1404 [153]"p=poisto       s=suojaus/antisuojaus"
  114. 1405 [153]"k=keskeytys    v=valmis (kaikki mukaan)"
  115. 1410 [139]d[178]1[167]z[178]1:[137]1425
  116. 1415 [129]z[178]1[164]d[171]1:[129]j[178]1[164]8:[139][198]([202](d$(z,j),3,1))[177]9[167]d1$(a)[178]d$(z,j):a[178]a[170]1
  117. 1420 [130]:[130]
  118. 1425 [129]j[178]1[164][197](d$(0,2)):[139][198]([202](d$(z,j),3,1))[177]9[167]d1$(a)[178]d$(z,j):a[178]a[170]1
  119. 1429 [130]:[139][195](d1$(1))[178]0[167]1000
  120. 1430 a[178]a[171]1:[129]i[178]1[164]a:d(i)[178]0:[130]:al[178]1:lo[178]12:b[178]7:n[178]1:la[178]1:[139]a[179]lo[167]lo[178]a
  121. 1440 [153]""[166]8)d$(0,0)[200](al$,b)
  122. 1445 [153]tt$:[139]n[177]al[167][129]z[178]al[164]n[171]1:[141]1500:[130]
  123. 1447 z[178]n:[153]"";:[141]1500:[139]lo[177]n[167][129]z[178]n[170]1[164]lo:[141]1500:[130]
  124. 1448 [153]tt$"on":[161]a$,a$
  125. 1450 [161]a$:[139]a$[178]""[167]1450
  126. 1451 [139]a$[178]"s"[167]1485
  127. 1452 [139]a$[178]""[175]n[179]lo[167]1460
  128. 1453 [139]a$[178]"p"[175]d(n)[178]0[167]1490
  129. 1454 [139]a$[178]"m"[167]1530
  130. 1455 [139]a$[178]"on"[175]n[177]1[167]1470
  131. 1456 [139]a$[178]"k"[167]1000
  132. 1457 [139]a$[178][199](13)[167]1480
  133. 1458 [139](a$[178]"v"[175]la[171]1[178]a)[176](a$[178]"v"[175]la[178]1)[167]1600
  134. 1459 [137]1450
  135. 1460 n[178]n[170]1:[139]b[177]0[167]b[178]b[171]1:[137]1465
  136. 1462 al[178]al[170]1
  137. 1465 [139]lo[179]a[167]lo[178]lo[170]1
  138. 1466 [137]1440
  139. 1470 n[178]n[171]1:[139]b[179]7[175]al[178]1[167]b[178]b[170]1
  140. 1472 lo[178]lo[171]1:[139]lo[171]n[179]11[167]lo[178]lo[170]1
  141. 1475 [139]al[177]1[167]al[178]al[171]1
  142. 1476 [137]1440
  143. 1480 [139]d(n)[178]0[167]d(n)[178]la:la[178]la[170]1:[139]n[179]lo[167]1460
  144. 1481 [137]1440
  145. 1485 [139][202](d1$(n),3,1)[177][199](190)[167]1488
  146. 1486 d1$(n)[178][200](d1$(n),2)[170][199]([198]([202](d1$(n),3,1))[170]64)[170][201](d1$(n),29)
  147. 1487 [137]1440
  148. 1488 d1$(n)[178][200](d1$(n),2)[170][199]([198]([202](d1$(n),3,1))[171]64)[170][201](d1$(n),29)
  149. 1489 [137]1440
  150. 1490 d1$(n)[178]"":[129]i[178]n[164]a:d1$(i)[178]d1$(i[170]1):d(i)[178]d(i[170]1):[130]:a[178]a[171]1:[139]lo[177]a[167]lo[178]a
  151. 1491 [139]n[177]a[167]n[178]a:al[178]al[171]1:[139]al[178]0[167]al[178]1:b[178]b[170]1
  152. 1492 [139]al[177]lo[167]1000
  153. 1493 [137]1440
  154. 1500 [153]d(z)"cmd "[202](d1$(z),6,16)" "t$([198]([202](d1$(z),3,1))[171]128)" ";
  155. 1505 p[178][198]([202](d1$(z),31,1))[170][198]([201](d1$(z),1))[172]256:[153]p"cmd     "
  156. 1506 [142]
  157. 1510 [153]"  "[202](d1$(z),6,16)"  "t$([198]([202](d1$(z),3,1))[171]128)" ";:[137]1505
  158. 1530 [153]"load"[166]8)d$(0,0):z[178]n
  159. 1535 [153]"nykyiset tiedot:":[141]1500:[153]"anna uudet tiedot <ret>=ei muutosta"
  160. 1540 [153]"nimi: _cmd";:b$[178]""
  161. 1545 [161]a$:[139]a$[178]""[176](a$[177][199](127)[175]a$[179][199](160))[167]1545
  162. 1546 [139]a$[178]""[175][195](b$)[177]0[167][153]"cmd_ cmdcmd";:b$[178][200](b$,[195](b$)[171]1)
  163. 1547 [139]a$[179][199](32)[175]a$[179][177][199](13)[167]1545
  164. 1548 [139]a$[178][199](34)[167][153][199](34)[199](20);
  165. 1550 [139]a$[178][199](13)[175]b$[179][177]""[167][153]" ":b$[178][200](b$[170]"               close",16):[137]1560
  166. 1551 [139]a$[178][199](13)[175]b$[178]""[167][153]" ":[137]1560
  167. 1552 [153]a$"_cmd";:b$[178]b$[170]a$:[139][195](b$)[177]16[167][153]"cmd: cmdcmd";:b$[178][200](b$,16)
  168. 1553 [137]1545
  169. 1560 [153]"pituus: _cmd";:c$[178]""
  170. 1565 [161]a$:[139]a$[178]""[167]1565
  171. 1566 [139]a$[178]""[175][195](c$)[177]0[167][153]"cmd_ cmdcmd";:c$[178][200](c$,[195](c$)[171]1)
  172. 1567 [139]a$[179]"0"[175]a$[179][177][199](13)[167]1565
  173. 1568 [139]a$[177]"9"[167]1565
  174. 1569 [139]a$[178][199](13)[167]1575
  175. 1571 [153]a$"_cmd";:c$[178]c$[170]a$:[139][195](c$)[177]5[167][153]"cmd: cmdcmd";:c$[178][200](c$,5)
  176. 1572 [137]1565
  177. 1575 [139]b$[178]""[167]1580
  178. 1577 d1$(n)[178][200](d1$(n),5)[170]b$[170][201](d1$(n),11)
  179. 1580 [139][197](c$)[178]0[167]1585
  180. 1581 z[178][197](c$):[139]z[177]65535[167]z[178]65535
  181. 1582 i[178][181](z[173]256):j[178]z[171]256[172]i:d1$(n)[178][200](d1$(n),30)[170][199](j)[170][199](i)
  182. 1585 [153]"load<ret>=valinta  m=muunto"
  183. 1586 [153]"p=poisto       s=suojaus/antisuojaus"
  184. 1587 [153]"k=keskeytys    v=valmis (kaikki mukaan)":[137]1440
  185. 1600 [139]la[178]1[167][129]i[178]1[164]a:d2$(i)[178]d1$(i):[130]:[137]1610
  186. 1605 [129]i[178]1[164]a:d2$(d(i))[178]d1$(i):[130]
  187. 1610 z[178]1:j[178]1:[129]i[178]1[164]a:d$(z,j)[178]d2$(i):j[178]j[170]1:[139]j[178]9[167]z[178]z[170]1:j[178]1
  188. 1615 [130]:d$(0,1)[178][196](z):d$(0,2)[178][196](j[171]1)
  189. 1620 [139]j[171]1[178]0[167]d$(0,1)[178][196](z[171]1):d$(0,2)[178]"8"
  190. 1621 [137]1000
  191. 1650 [153]"loadviivoja":a[178]1:d[178][197](d$(0,1)):[139]d[178]0[167]1000
  192. 1655 [153]"k=keskeytys  v=valmis"
  193. 1660 [139]d[178]1[167]z[178]1:[137]1675
  194. 1665 [129]z[178]1[164]d[171]1:[129]j[178]1[164]8:[139][198]([202](d$(z,j),3,1))[177]9[167]d1$(a)[178]d$(z,j):a[178]a[170]1
  195. 1670 [130]:[130]
  196. 1675 [129]j[178]1[164][197](d$(0,2)):[139][198]([202](d$(z,j),3,1))[177]9[167]d1$(a)[178]d$(z,j):a[178]a[170]1
  197. 1680 [130]:[139][195](d1$(1))[178]0[167]1000
  198. 1685 a[178]a[171]1:al[178]1:lo[178]10:b[178]7:n[178]1:[139]a[179]lo[167]lo[178]a
  199. 1690 [153]""[166]8)d$(0,0):[153][200](al$,b)
  200. 1695 [153]tt$:[139]n[177]al[167][129]z[178]al[164]n[171]1:[141]1510:[130]
  201. 1700 [153]"  -*-*-*-*-*-*-*-*  usr":[139]lo[178][177]n[167][129]z[178]n[164]lo:[141]1510:[130]
  202. 1705 [153]tt$"on":[161]a$,a$
  203. 1710 [161]a$:[139]a$[178]""[167]1710
  204. 1712 [139]a$[178]""[175]n[179][178]lo[167]1720
  205. 1715 [139]a$[178]"on"[175]n[177]1[167]1730
  206. 1716 [139]a$[178]"k"[167]1000
  207. 1717 [139]a$[178][199](13)[167]1740
  208. 1718 [139]a$[178]"v"[167][129]i[178]1[164]a:d2$(i)[178]d1$(i):[130]:[137]1610
  209. 1719 [137]1710
  210. 1720 n[178]n[170]1:[139]b[177]0[167]b[178]b[171]1:[137]1725
  211. 1722 al[178]al[170]1
  212. 1725 [139]lo[179]a[167]lo[178]lo[170]1
  213. 1726 [137]1690
  214. 1730 n[178]n[171]1:[139]b[179]7[175]al[178]1[167]b[178]b[170]1
  215. 1732 lo[178]lo[171]1:[139]lo[171]n[179]9[167]lo[178]lo[170]1
  216. 1735 [139]al[177]1[167]al[178]al[171]1
  217. 1736 [137]1690
  218. 1740 [129]i[178]a[164]n[169][171]1:d1$(i[170]1)[178]d1$(i):[130]:a[178]a[170]1
  219. 1745 d1$(n)[178][200](d1$(n),2)[170]"data"[170][199](0)[170][199](255)[170]"-*-*-*-*-*-*-*-*"
  220. 1746 d1$(n)[178]d1$(n)[170][199](0)[170][199](0)
  221. 1747 [137]1720
  222. 1800 [153]"loadtallennus"[199](13)"laita levy asemaan":[139]oe$[179][177]"onwait/ei"[167]1000
  223. 1810 [161]a$:[139]a$[178]""[167]1810
  224. 1812 [139]a$[178]"e"[176]a$[178]"_"[167]1000
  225. 1815 [153]"talletus kaynnissa!":d[178][197](d$(0,1))
  226. 1820 [159]5,8,5,"#":[132]15,a$:[139][197](a$)[177]1[167][160]5:[137]1000
  227. 1830 [152]15,"u1:"5;0;18;0:[152]15,"b-p:"5;144:[152]5,d$(0,0):[152]15,"u2:"5;0;18;0
  228. 1834 [139]d[178]0[167][160]5:[137]1000
  229. 1835 [139]d[178]1[167]z[178]1:[137]1850
  230. 1840 [129]z[178]1[164]d[171]1:j[178]1
  231. 1841 [152]15,"b-p:"5;0:[152]5,[199](18)[199](s(z[170]1))[201](d$(z,j),30);:s[178]s(z)
  232. 1845 [129]j[178]2[164]8:[152]5,d$(z,j);:[130]:[152]15,"u2:"5;0;18;s:[130]
  233. 1850 [152]15,"b-p:"5;0:[129]i[178]1[164]8:[129]t[178]1[164]32:[152]5,[199](0);:[130]:[130]
  234. 1851 j[178]1:[152]15,"b-p:"5;0:[152]5,[199](0)[199](255)[201](d$(z,j),30);:s[178]s(z)
  235. 1852 [139][197](d$(0,2))[177]1[167][129]j[178]2[164][197](d$(0,2)):[152]5,d$(z,j);:[130]
  236. 1860 [152]15,"u2:"5;0;18;s:[160]5:[137]1000
  237. 1900 [153]"load"d$(0,0):d[178][197](d$(0,1)):[139]oe$[178]"on/eiwait"[167]1000
  238. 1910 [139]d[178]1[167]z[178]1:[137]1930
  239. 1911 [139][197](d$(0,1))[178]0[167]1254
  240. 1920 [129]z[178]1[164]d[171]1:[129]j[178]1[164]8:[141]500:[130]:[130]
  241. 1930 [129]j[178]1[164][197](d$(0,2)):[141]500:[130]:[137]1254
  242.